1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | iText = "Добро пожаловать на сайт "iCount = 5 ' количество повторенийiReptText = Application.Rept(iText, iCount)iReptText = WorksheetFunction.Rept(iText, iCount)iReptText = Excel.Application.Rept(iText, iCount)iReptText = Excel.WorksheetFunction.Rept(iText, iCount)iReptText = Application.WorksheetFunction.Rept(iText, iCount)Если нет необходимости в использовании переменных, то :iReptText = Application.Rept("Повторяющийся текст" & vbCrLf, 5)MsgBox iReptTextМаксимально допустимое количество символов в новой строке не может превышать 32767Для генерации строки, содержащей указанное число пробелов используйте функцию Basic - Space, а для генерации строки, содержащей указанное число повторяющегося символа - String |